Top 10k strings from Run - Issue 05 (19xx)(Ediciones Ingelek)(es).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TAP] (TOSEC-v2007-01-01) /

Back to the directory listing

  11 ***********************
   4 * J.M.MAYORAL SERRANO *
   2 R(M,BLOCK)=P(M)
   2 MUEVE VERTICES
   2 MUEVE ADYACENTES CENTR
   2 ;"              "
   2  GRAFICOS USUARIO 
   1 Z(M,FORM)=C(FORM,X)
   1 Z(M,FORM)=A(BLOCK,X)
   1 Z(FORM,M)=R(FORM,M)
   1 Z(FORM,M)=P(M)
   1 VOC=U(I)=11
   1 V(M,FORM)=C(X,BLOCK)
   1 V(M,FORM)=A(X,BLOCK)
   1 V(FORM,M)=P(M)
   1 V(FORM,M)=M(FORM,M)
   1 U(QUO)=U(QUO)+1
   1 U(I)>(RIG+4
   1 U(I)=U(I)-10
   1 SBR. CARACT. GIGANTES
   1 RIG*VOC>RIG
   1 R(FORM,M)=Z(FORM,M)
   1 R(FORM,M)=M(FORM,M)
   1 PASTA=PASTA*1.5
   1 PASO V a A (3 a 4)
   1 PASO R a C (1 a 2)
   1 PASO PUENTE a R 
   1 PASO C a V (2 a 3)
   1 PASO A PUENTE
   1 P(M)=Z(M,FORM)
   1 P(M)=Z(FORM,M)
   1 P(M)=V(FORM,M)
   1 P(M)=M(M,BLOCK)
   1 P(M)=C(M,BLOCK)
   1 P(M)=A(M,BLOCK)
   1 P$="GIGANTES":
   1 P$="CARACTERES"
   1 P$="# ZX Spectrum #"
   1 NIVEL DE DIFICULTAD
   1 M(M,BLOCK)=C(FORM,X)
   1 M(M,BLOCK)=A(BLOCK,X)
   1 M(FORM,M)=V(FORM,M)
   1 M(FORM,M)=R(FORM,M)
   1 LIT       
   1 INTROD. DATOS
   1 INIC. VARIABLES
   1 INDEX     Z
   1 I=VOC*RIG+2
   1 FILA=RIG-2
   1 FILA,COLUM-1
   1 DIV.CUBO  d9
   1 DIREC=15360
   1 DIN=DIN-PASTA
   1 DIN=DIN+(RIG+2
   1 DIBUJO LIMITES CUBO
   1 DESORDENACION
   1 CONTA=CONTA+1
   1 C=VOC*RIG+11
   1 C.GIG     
   1 C(M,BLOCK)=V(X,FORM)
   1 C(M,BLOCK)=R(M,BLOCK)
   1 C(FORM,M)=P(X)
   1 C(FORM,M)=P(M)
   1 BLACKJACK 
   1 B$(C)+DIREC
   1 A(M,BLOCK)=V(X,FORM)
   1 A(M,BLOCK)=R(M,BLOCK)
   1 A(BLOCK,M)=Z(X,FORM)
   1 A(BLOCK,M)=M(X,BLOCK)
   1 ;"Total=";
   1 ;"TE HAS QUEDADO SIN DINERO";
   1 ;"SEPAR. MARGEN IZQDO ....= ";XX:
   1 ;"PULSA ~C~ PARA OTRA PARTIDA!":
   1 ;"POSEES UN FONDO DE ";DIN;" PESETAS":
   1 ;"OTRA PARTIDA ?"
   1 ;"MOVIMIENTO?"
   1 ;"LO CONSEGUISTE"
   1 ;"LITERAL CENTRADO (S/N)  ";
   1 ;"INTRODUCE NIVEL DE DIFICULTAD"
   1 ;"DIRECCION ?"
   1 ;"DESEA SALIDA POR IMPRESORA?"
   1 ;"CUANTO DINERO QUIERES APOSTAR ?"
   1 ;"CON MENSAJE DE ~SCROLL~?"
   1 ;"COLOR TINTA = ";T:
   1 ;"COLOR PAPEL = ";P:
   1 ;"ANCHURA CARACTER = ";XS:
   1 ;"ALTURA LITERAL = ";YY:
   1 ;"ALTURA CARACTER = ";YS:
   1 ;"1  -a-  9"
   1 ;" TODO CORRECTO ??"
   1 ;" QUIERES UNA CARTA MAS ? ":
   1 ;" DESORDENANDO "
   1 ;" BRILLO ??    (S/N)    ";C$
   1 ;" BLOQUE ?"
   1 ;" BLACKJACK ":
   1 ;"  MOVIM."
   1 ;"   INTRODUCE  LITERAL  "'''';P$
   1 ;"       CARTAS    SPECTRUM       "
   1 ;"          TUS  CARTAS           ";
   1 ;"           I N D E X            "
   1 ;"              ";
   1 ;"                                "
   1 *U(I+POS-2
   1 *I+(POS-11
   1 * CARACTERES GIGANTES *
   1 *    BLACKJACK  1985  *
   1 *     INDEX  1985     *
   1 "TIPO..........."
   1 "SEPARACION MARGEN IZQDO=";XX:
   1 "PROGRAMA"
   1 "PESETAS= ";PASTA
   1 "NOMBRE.........";:
   1 "NOMBRE ORIGINAL:";
   1 "NEGRO","AZUL","ROJO","MAGENTA","VERDE","CIAN","AMARILLO","BLANCO"
   1 "LONGITUD TOTAL.:";:
   1 "LONGITUD PROG..:";
   1 "LONGITUD CODE..:";:
   1 "LONGITUD ""DIM"".:",:
   1 "LINEA ""AUTORUN"":";:
   1 "IMAGEN DE PANTALLA"
   1 "IDENTIFICADOR DE CINTA?";N$
   1 "FLASH ??     (S/N)   ";F$
   1 "COMIENZO CODE..:";:
   1 "COLOR DE TINTA ......= ","COLOR DEL PAPEL .....=  ","BRILLO .................= ","FLASH ..................= "
   1 "ANCHURA DEL CARACTER ...= ","ALTURA DEL CARACTER ....= ","ALTURA DEL LITERAL .....= ","LITERAL CENTRADO .......= "
   1 """DIM"" NUMERICO"
   1 """DIM"" ALFANUM."
   1 """";z$;""""
   1  SBR. BORRADO PARCIAL 
   1  SBR CONTROLA MOVIMIEN.
   1  PROGRAMA PRINCOPAL 
   1  PROGRAMA PRINCIPAL 
   1  PRESENTACION PANTALLA 
   1  PRESENTACION 
   1  OTRA JUGADA ? 
   1  INTRODUCCION DATOS 
   1  INIC. VARIABLES 
   1  INIC. TABLAS 
   1  FIN DEL JUEGO 
   1  DISPLAY CARAS/CUBO 
   1  DIBUJO CARTAS 
   1  CUBO COORECTO ? 
   1  CUBO ACERTADO 
   1  CONT. JUEGO 
   1  COMPROBACION 
   1  AUTO-EJEC. OBLIGATORIA
   1   SBR DUPLIC. CARAC. 
   1   SBR -12  
   1   SBR - 9  
   1   SBR - 8  
   1   SBR - 7  
   1   SBR - 6  
   1   SBR - 5  
   1   SBR - 4  
   1   SBR - 3  
   1   SBR - 2  
   1   SBR - 18  
   1   SBR - 17  
   1   SBR - 16  
   1   SBR - 15  
   1   SBR - 14  
   1   SBR - 13  
   1   SBR - 11  
   1   SBR - 10  
   1   SBR - 1  
   1   MENSAJES  
   1   CALCULOS  
   1   BORRADO MENSAJE 
   1   BLACKJACK  
   1   ALEATORIEDAD CARTAS